#######Exerccios 5 - Criao de Grficos#######

####5.1 Editando alguns parmetros grficos
########Crie um grfico de disperso entre "dap" e "ht" com:
  
##5.1.1# Legendas dos eixos com nomes das variveis e suas unidades
esaligna <- read.csv("esaligna.csv", as.is=T)
head(esaligna)
str(esaligna)

plot(dap~ht, data=esaligna, ylab="DAP (cm)", xlab="Altura (m)")


##5.1.2# Marcaes do eixos (ticks) para dentro da rea do grfico

plot(dap~ht, data=esaligna, ylab="DAP (cm)", xlab="Altura (m)", tcl=0.3)

##5.1.3# Apenas dois eixos (formato "L")

plot(dap~ht, data=esaligna, ylab="DAP (cm)", xlab="Altura (m)", tcl=0.3, bty="l")

##5.1.4# Ttulo informativo

plot(dap~ht, data=esaligna, ylab="DAP (cm)", xlab="Altura (m)", tcl=0.3, bty="l", main="Relao DAP por Altura de E. saligna")

##5.1.5# Tamanho das fontes maiores que o padro

plot(dap~ht, data=esaligna, ylab="DAP (cm)", xlab="Altura (m)", tcl=0.3, bty="l", main="Relao DAP por Altura de E. saligna" , cex.lab=1.5)



#######5.2 Dois grficos juntos

###Use as variveis "dap" e "talhao" para construir dois grficos, 
#   colocando-os lado a lado. O primeiro deve ser um grfico de desenho 
#   de caixa (boxplot) da varivel "dap" em funo do fator "talho". 
#   O segundo deve ter apenas a mdia e uma barra de desvio-padro do 
#   dap,para cada talho.

str(esaligna)
table(esaligna$talhao)

par(mfrow=c(1,2))

#Primeiro grafico

boxplot(dap~talhao, data=esaligna, xlab="Talhao",ylab="DAP")
mtext("a", cex=1.5, side=3, line=-2)

#Segundo grafico

matriz <- matrix(c(tapply(esaligna$dap,esaligna$talhao,mean), tapply(esaligna$dap,esaligna$talhao,sd)),ncol=2,nrow=6)
colnames(matriz) <- c("Media", "Desvio")
matriz

plot(matriz[,"Media"], ,ylim=c(1,30), xaxt="n", xlab="Talho", ylab="Media DAP")

axis(side=1, at=c(1:6),labels=c("16","17","18","22","23","32"))
arrows(x0=1:6,y0=matriz[,"Media"]-matriz[,"Desvio"],y1=matriz[,"Media"]+matriz[,"Desvio"], angle=90, code=3 )
mtext("b", cex=1.5, side=3, line=-2)


###Insira tambm uma letra para dizer qual  o grfico "a" e qual  o 
#   "b" (tanto faz, quem  um e quem  outro).


#Dica: vocs tero que calcular a mdia e os desvios-padro do dap das 
#  rvores em cada talho. Depois crie uma matriz com estes valores e 
#  crie o plot destes valores.



######5.3 Adivinhando o cdigo

#(No deu tempo de fazer)